home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SysOp's Arsenal
/
SysOp's Arsenal 1 (Arsenal Computer).ISO
/
telecom
/
sfnet.slt
< prev
next >
Wrap
Text File
|
1994-09-02
|
12KB
|
230 lines
///////////////////////////////////////////////////////////////////////////////
//
// SFNET.SLT ... SPITFIRE SFNET Upload/Download Script
//
// Although there's a lot of comments to this, compiled it still only
// takes up just over 1K. So try not to change or remove anything not
// documented, in order to prevent possible errors. The "//" are
// especially important, don't remove them unless you remove the
// entire line AND ONLY THEN WITH CARE.
//
// Your personal data must be entered in areas marked with
// ** in the comment fields. Make sure you keep your
// data between the quotation marks.
//
// ***** You MUST enter your BIRTH DATE in the TELIX
// ***** BBS dir as a password i.e mmddyy, just numbers
// no hypens or quotes. Trust me on this one.
//
// ** This script will *only* work with ZMODEM and Spitfire as a HUB
//
// If you follow the comments exactly you should have no problems
//
// AFTER ALL CHANGES ARE MADE COMPILE USING "CS SFNET"
//
//
// Originally written by Dan South, AUG 1990
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
//
// Here is where your own information goes. Some data will need to be changed
// in the MAIN part of the Script, follow the comments exactly and you'll be
// just fine
///////////////////////////////////////////////////////////////////////////////
////////////////////////////////////
//////////
str user_name[] = "A0515000^M^MJACQUE_SHIPLEY", // ** ENTER your name;password
///////// You must use your password -
// name as shown for this to work
//
//
//
dial_str[]="27", // ** ENTER the Telix Dialing Directory
// number of the BBS to call
//
graph_str[]="N"; // ** CHANGE to "y" if you want Graphics
//
//
int d = 1, // ** CHANGEABLE delay time to answer
// the SPITFIRE prompt. Range from
// 1 to 30, 10 = 1 second. This works
// well, so change it only if you
// must.
//
e = 9600; // ** CHANGEABLE time the script will
// wait while in the Hub's Relay
// door for your packet to be
// assembled after you upload
// your.rly file. 10 = 1 sec.
//
str capfilename[] = "c:\telix\mail.cap"; // Screen capture of mail run
// can be used for debugging or keeping
// record of activity - comment out if
// you do not wish to use this feature
///////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
//
// Read the comments and enter the changes exactly as described. Otherwise
// unpredictable results may occur.
///////////////////////////////////////////////////////////////////////////////
//
//
///////////////////////////////////////////////////////////////////////////////
//
// This is the main body of the script.
//
///////////////////////////////////////////////////////////////////////////////
//
main() //
{
slug(); // call function slug()
//
int tmark; //
// ************************************
///////////////////////////////////////// DON'T CHANGE ANYTHING BUT THE NUMBER
// ************************************
dial(dial_str, 100, 1); // ** dial the BBS X number of attempts
// Change this ^ to desired redial attempts, The number of tries is determined
///////////////////////////////////////// by the first number. (currently 100)
// by setting to 0 it will redial
// until connected
if (!carrier()) // -> Shut Down the Script/Telix
{ /////// If no connection after X Redial
clear_scr(); //// Attempts
pstraxy("Log-on Failed!", 28, 4, 750); //
pstraxy("Returning Control back to Spitfire in 5 . 4 . 3 . 2 . 1", 10, 5, 750); //
delay(50); //
timer_free(tmark); // free timer channel
track_free(0); // and all track channels
hangup(); //
exittelix(1,1); // The Script Continues
} // If connection is made before end
// of redial setting is reached
//
int cst;
cst = capture_stat (); // check capture status
if (cst == 1) // close capture if open
{
capture("*CLOSE*");
}
capture(capfilename);
int stat; // set up a bunch of variables
int t1, //
t2, //
t3, //
t4, //
t5, //
t6; //
//
t1 = track("GRAPHICS?", 0); // define the variables
t2 = track("first name", 0); //
t3 = track("birth date", 0); //////
t4 = track("< ENTER >", 0); //
t5 = track("stati", 0); //
t6 = track("ENTER COMMAND", 0); //
tmark = timer_start(1800); // wait up to 3 minutes
// before hanging up if no
// activity is detected
//
//
while (not time_up(tmark)) // as long as things are happening
// and time is not up
{ //
terminal(); // let Telix process any chars and keys
//
//
stat = track_hit(0); // see which (if any) track was hit
//
if (stat == t1) // say whether we want graphics
{ //
delay(d); //
cputs(graph_str); // send answer
} //
else if (stat == t2) // send name
{ //
track_free(t1); // free the track, we won't
// need it again
delay(d); //
cputs(user_name); //
cputs("^M"); //
} //
else if (stat == t3) // send second password - birth date
{ // you remembered right?
track_free(t2); // free the track, we won't
// need it again
delay(d); //
cputs(_entry_pass); // uses the birth date from the
// dialing directory password entry
} //
else if (stat == t4) // Moving along....
{ //
delay(d); //
cputs("^M"); //
} //
else if (stat == t5) // "No" Message checking, we'll most
{ // likely get em anyway in the D/L
delay(d); //
cputs("N^M"); //
} //
else if (stat == t6) //
{ //
delay(d); // Select A from the SF Menu extension
cputs("A^M"); // to receive packet
Delay(10); //
receive('Z',"A0515000.QWK"); // ** Change to reflect the Hub ID
waitfor ("A B Q G",e); // packet name of your Hub
cputs("B^M"); // Select B from the SF Menu extension
delay(d); // to upload reply packet
send('Z',"A0515000.REP"); // ** Change so the REP packet has
// delay(20); // the HUB ID of your hub
waitfor ("A B Q G",e); //
cputs("G^M"); // All done...say Goodbye
waitfor ("Are you",1); //
cputs("Y",0); //
capture( "*CLOSE*" ); // Close capture file
hangup(); //
exittelix(1,1); // Exit Telix
} // * END OF CHANGES TO MAKE *
} //
if (time_up(1)) //
{ //
clear_scr(); //
pstraxy("Log-on Failed!", 28, 4, 700); //
pstraxy("Returning Control back to Spitfire in 5 . 4 . 3 2 . 1", 10, 5, 700); timer_free(tmark); // free timer channel
track_free(0); // and all track channels
hangup(); //
exittelix(1,1); //
} //
} //
//
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// Function slug.
///////////////////////////////////////////////////////////////////////////////
slug() // function slug
{
prints("^M");
prints("^M");
prints("^M");
prints("^M");
clear_scr();
pstraxy("***************************************************************", 8, 1, 27);
pstraxy("* SFNET.SLT SPITFIRE-SFNET Upload/Download Script *", 8, 2, 27);
pstraxy("* Original Script (SFRIME3.SLT) By Dan South *", 8, 3, 27);
pstraxy("* Modified For SFNET By Jacque Shipley *", 8, 4, 27);
pstraxy("***************************************************************", 8, 5, 27);
prints("^M");
return;
}
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////